home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 47.7z / BS1 part 47 / HiSoft BASIC v1.04 (1989)(HiSoft)(Disk 2 of 2)[h Band].7z / HiSoft BASIC v1.04 (1989)(HiSoft)(Disk 2 of 2)[h Band].adf / music / starmusic.bas < prev    next >
Encoding:
BASIC Source File  |  1988-12-03  |  248 b   |  15 lines
  1. GetInfo:
  2.   READ freq,dur
  3.   IF freq=-1 THEN SOUND RESUME: END
  4.   SOUND WAIT
  5.   SOUND freq,dur,21,0
  6.   SOUND freq/2, dur,127,1
  7.   SOUND freq*2,dur,21,2
  8. GOTO GetInfo:
  9.  
  10. DATA 523.25,15,784,15,698.48,6
  11. DATA 659.28,6,587.28,6,1046.52,15
  12. DATA 784,17,-1,-1
  13.  
  14.   
  15.